12 PRINT"TYPE:":B$="": REM B$ STRING IS CLEARED
20 GETA$:IFA$=""THEN20: REM GET ONE TYPED CHARACTER
22 IFA$=CHR$(13)THEN30: REM THE <RETURN> KEY
25 IFB$=""ANDA$=CHR$(20)THEN20
26 IFA$=CHR$(20)THENB$=LEFT$(B$,LEN(B$)-1):GOTO29
27 B$=B$+A$: REM ADD A$ TO END OF B$ STRING
29 PRINT A$;:GOTO 20: REM GET NEXT CHARACTER
30 OPEN 1,4: REM DATA CHANNEL FOR PRINTER
40 PRINT#1,B$:PRINT: REM PRINT DATA, GO TO NEXT LINE
50 CLOSE 1: REM CLOSE DATA CHANNEL
60 GOTO12: REM GO BACK TO STEP 1